home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / amos / AMOSL0495.lzh / AMOSLIST / 000059_amos-request@svcs1.digex.net_Wed Apr 12 17:08:22 1995.msg < prev    next >
Internet Message Format  |  1995-05-01  |  3KB
  1. Received: from svcs1.digex.net by nfs2.digex.net with SMTP id AA05454
  2.   (5.67b8/IDA-1.5); Wed, 12 Apr 1995 17:08:19 -0400
  3. Received: by svcs1.digex.net id AA03214
  4.   (5.67b8/IDA-1.5 for amos-out); Wed, 12 Apr 1995 12:40:59 -0400
  5. Received: from nfs2.digex.net by svcs1.digex.net with SMTP id AA03180
  6.   (5.67b8/IDA-1.5 for <amos@svcs1.digex.net>); Wed, 12 Apr 1995 12:40:26 -0400
  7. Received: from seraph.uunet.ca (uunet.ca) by nfs2.digex.net with SMTP id AA18326
  8.   (5.67b8/IDA-1.5 for <amos-list@access.digex.net>); Wed, 12 Apr 1995 12:40:23 -0400
  9. Received: from portnoy.canrem.com ([198.133.42.17]) by mail.uunet.ca with SMTP id <185982-3>; Wed, 12 Apr 1995 12:35:48 -0400
  10. Received: from canrem.com by portnoy.canrem.com (4.1/SMI-4.1)
  11.     id AA13084; Wed, 12 Apr 95 12:30:55 EDT
  12. Received: by canrem.com (PCB-UUCP 1.1f)
  13.     id 1DB5CD; Wed, 12 Apr 95 12:22:33 -0500
  14. To: amos-list@access.digex.net
  15. Reply-To: CRSO.Amos@canrem.com
  16. Sender: CRSO.Amos@canrem.com
  17. Subject: Re: stdin/stdout
  18. From: mike.pelletier@canrem.com (Mike Pelletier)
  19. Message-Id: <60.2133.6587.0C1DB5CD@canrem.com>
  20. In-Reply-To: <9504081325.AA20364@goober.mbhs.edu>
  21. Date: Wed, 12 Apr 1995 13:06:00 -0400
  22. Organization: CRS Online  (Toronto, Ontario)
  23. Status: O
  24. X-Status: 
  25.  
  26. -> > 2: <This method is a little trickier but not too difficult>
  27. ->
  28. -> If you use this, you need to make the changes indicated below:
  29. -> Old    New ---    --- A$="*" Areg(1)=Varptr(A$)  Dreg(1)=Varptr(A$)
  30. -> Dreg(2)=1005
  31. -> MYIO=Doscall(LVO("Open")) (or)  MYIO=Doscall(-30)
  32. -> > Then you use the contents of MYIO and use the following fragments > to do
  33. -> IO:
  34. ->
  35. -> IN: inbuf$=space$(30) areg(1)=MYIO   Dreg(1)=MYIO areg(2)=Varptr(inbuf$)
  36. -> Dreg(2)=Varptr(INBUF$) dreg(0)=1   Dreg(3)=Len(INBUF$)
  37. -> z=Doscall(LVO("Read"))   (or)  z=Doscall(-42)
  38. -> OUT: outbuf$="Hello world" areg(1)=MYIO   Dreg(1)=MYIO
  39. -> areg(2)=Varptr(outbuf$)  Dreg(2)=Varptr(OUTBUF$)   Dreg(3)=Len(OUTBUF$)
  40. -> z=Doscall(LVO("Write"))   (or)  z=Doscall(-48)
  41. -> > Finally, when you are done, you have to close the file:
  42. ->
  43. -> areg(1)=MYIO   Dreg(1)=MYIO z=Doscall(LVO"Close")  z=Doscall(LVO("Close"))
  44. -> (or)  z=Doscall(-36)
  45.  
  46. I tried this one and it works fine, but only if you just run the whole thing.
  47. If I try to make it subroutines or procedures, it gurus my machine.  Can you
  48. (Andy) fix up the procs you showed me first?  They were more in line with what
  49. I wanted to do.  Or combine the two to get a final version.
  50.  
  51. Well met and godspeed,
  52.                       Giark